 subroutine printdnrm2_s(title, array, iop) 
!
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
 implicit none
 character*(*), intent(in) :: title
 real*4, intent(in),managed :: array(*)
 real*8, external :: nrm2so, dnrm2
 real*8 f1, f2
 integer, intent(in) :: iop 
 f1 = 2.d0
 f2 = sqrt(2.d0)
 if(iop==11) then 
    write(6,*) title,'_VV' 
    write(6,*) 'AA', nrm2so(ifvv(2)-ifvv(1), array(ifvv(1)), 1)
    write(6,*) 'BB', nrm2so(ifvv(3)-ifvv(2), array(ifvv(2)), 1)
 elseif(iop==22) then 
    write(6,*) title,'_VO'
    write(6,*) 'AA', nrm2so(ifvo(2)-ifvo(1), array(ifvo(1)), 1)
    write(6,*) 'BB', nrm2so(ifvo(3)-ifvo(2), array(ifvo(2)), 1)
 elseif(iop==33) then 
    write(6,*) title,'_OO'
    write(6,*) 'AA', nrm2so(ifoo(2)-ifoo(1), array(ifoo(1)), 1)
    write(6,*) 'BB', nrm2so(ifoo(3)-ifoo(2), array(ifoo(2)), 1)
 elseif(iop==1) then 
    write(6,*) title,'_OOOO'
    write(6,*) 'AAAA',nrm2so(ioi1(2)-ioi1(1), array(ioi1(1)), 1)*f1
    write(6,*) 'ABAB',nrm2so(ioi1(3)-ioi1(2), array(ioi1(2)), 1)
    write(6,*) 'BBBB',nrm2so(ioi1(4)-ioi1(3), array(ioi1(3)), 1)*f1
 elseif(iop==2) then 
    write(6,*) title,'_OOOV'
    write(6,*) 'AAAA', nrm2so(ioi2(2)-ioi2(1), array(ioi2(1)), 1)*f2
    write(6,*) 'ABAB', nrm2so(ioi2(3)-ioi2(2), array(ioi2(2)), 1)
    write(6,*) 'BBBB', nrm2so(ioi2(4)-ioi2(3), array(ioi2(3)), 1)*f2
    write(6,*) 'BABA', nrm2so(ioi2(5)-ioi2(4), array(ioi2(4)), 1)
 elseif(iop==3) then 
    write(6,*) title,'_VVOO'
    write(6,*) 'AAAA', nrm2so(ioi3(2)-ioi3(1), array(ioi3(1)), 1)*f1
    write(6,*) 'ABAB', nrm2so(ioi3(3)-ioi3(2), array(ioi3(2)), 1)
    write(6,*) 'BBBB', nrm2so(ioi3(4)-ioi3(3), array(ioi3(3)), 1)*f1
 elseif(iop==4) then 
    write(6,*) title,'_VVOO'
    write(6,*) 'AAAA', nrm2so(ioi4(2)-ioi4(1), array(ioi4(1)), 1)
    write(6,*) 'ABAB', nrm2so(ioi4(3)-ioi4(2), array(ioi4(2)), 1)
    write(6,*) 'BBBB', nrm2so(ioi4(4)-ioi4(3), array(ioi4(3)), 1)
    write(6,*) 'BABA', nrm2so(ioi4(5)-ioi4(4), array(ioi4(4)), 1)
    write(6,*) 'AABB', nrm2so(ioi4(6)-ioi4(5), array(ioi4(5)), 1)
    write(6,*) 'BBAA', nrm2so(ioi4(7)-ioi4(6), array(ioi4(6)), 1)
 elseif(iop==5) then 
    write(6,*) title,'_VVVO'
    write(6,*) 'AAAA', nrm2so(ioi5(2)-ioi5(1), array(ioi5(1)), 1)*f2
    write(6,*) 'ABAB', nrm2so(ioi5(3)-ioi5(2), array(ioi5(2)), 1)
    write(6,*) 'BBBB', nrm2so(ioi5(4)-ioi5(3), array(ioi5(3)), 1)*f2
    write(6,*) 'BABA', nrm2so(ioi5(5)-ioi5(4), array(ioi5(4)), 1)
 elseif(iop==6) then 
    write(6,*) title,'_VVVV'
    write(6,*) 'AAAA', nrm2so(ioi6(2)-ioi6(1), array(ioi6(1)), 1)*f1
    write(6,*) 'ABAB', nrm2so(ioi6(3)-ioi6(2), array(ioi6(2)), 1)
    write(6,*) 'BBBB', nrm2so(ioi6(4)-ioi6(3), array(ioi6(3)), 1)*f1
 elseif(iop==111) then 
    write(6,*) title,'_RIVV'
    write(6,*) 'AA', nrm2so(nioiri_vv1, array(ioiri_vv(1)), 1)
    write(6,*) 'BB', nrm2so(nioiri_vv2, array(ioiri_vv(2)), 1)
 elseif(iop==222) then 
    write(6,*) title,'_RIVO'
    write(6,*) 'AA', nrm2so(nioiri_vo1, array(ioiri_vo(1)), 1)
    write(6,*) 'BB', nrm2so(nioiri_vo2, array(ioiri_vo(2)), 1)
 elseif(iop==333) then 
    write(6,*) title,'_RIOO'
    write(6,*) 'AA', nrm2so(nioiri_oo1, array(ioiri_oo(1)), 1)
    write(6,*) 'BB', nrm2so(nioiri_oo2, array(ioiri_oo(2)), 1)
 else 
    write(6,*)'error in iop of printnorm2' 
    stop
 endif 
 return 
 end 
